home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dskut
/
partitn.zip
/
SOUNDS.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1988-07-24
|
483b
|
28 lines
UNIT Sounds;
INTERFACE
USES Crt;
PROCEDURE Beep;
PROCEDURE Bup;
PROCEDURE Blat;
PROCEDURE Tick;
IMPLEMENTATION
PROCEDURE Beep;
BEGIN Sound(800); Delay(200); NoSound; END;
PROCEDURE Bup;
BEGIN Sound(100); Delay(100); Sound(50); Delay(200); NoSound; END;
PROCEDURE Blat;
VAR I:byte;
BEGIN
for I:=1 to 30 do
begin sound(2*i+60); delay(15); end;
nosound;
end {blat};
PROCEDURE Tick;
BEGIN Sound(500); delay(10); nosound; END;
END {Unit Sounds}.